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ZTITLE "EDTSLRES = RESEQUENCE Line-mode command’ 
MODULE EDTSLRES ! RESEOUENE Line-mode command 
[DENT = '¥04-000' le: LRES. BLI Edit: $T$1010 
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'® COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
'@ ALL RIGHTS RESERVED. 


i re i hecte is wv oite UNDER A LICENSE AND MAY BE USED AND COPIED 
t® ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
'* INCLUSION OF THe ABOVE Spl thd NOTICE. THIS SOFTWARE OR ANY OTHER 
te COPIES THEREOF MAY fy BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
tt OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
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i® THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
rs Crmpokat itn NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
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or a cgunt printout. SMB 07-Feb-1982 
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0 See 
8 FACILITY: EDT -=- The DEC Standard Editor 
0 ABSTRACT: 
$ e <9 This module executes the Line mode RESEQUENCE command. 
; 0038 ENVIRONMENT: Runs at any access mode - AST reentrant 
? re AUTHOR: Bob Kushlis, CREATION DATE: February 3, 1978 
Bne§ MODIFIED BY: 
44 0044 i 1-001 - Original. DJS 30-JAN-1981. This module was created by 
45 i extracti ng the routine EDTS$RSEQ CMD from the module EXEC.BLI. 
4 004 i 1- § = Regularize headers. JBS 20-Mar-1981 
‘& i 1- - Use new message codes, JBS 04-Aug-1981 
48 04 i 1-004 - gnenge the count te 48-bi bits. SMB Hy lp 
49 1-005 - - use ne 
Z 
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i 
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$0 5 i- Des ESTSSEMT’ BU rer vinstead of seotsfout*s ie 58S 05-Jul-1982 
2) 5 1- Make edt$$tsf_eob in Line. 
§ 5 1-008 - Modify to use new 48 bit macro. S13, 1-0ct-1982 
5 1-009 = Put edt$$rng_posfrst in Line. STS he So at bf 
: B 1-010 - Convert to néw compare macro. STS 20-Oct-19 
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' Process the RESEQUENCE command 


In the routine 


INCLUDE FILES: 
EXTERNAL REFERENCES: 
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REQUIRE "EDTSRC:EDTREQ’: 
EQUATED SYMBOLS: 


PLESSIS INSOLE OST OON OOO Owns OF O-S 
BESS SSnnnnanrrassssssoosseseeess 


pr te A whe SA Wt tt Ne th ae Nat wt tt ES et 4 


dee ti EDTSEREEG CAD HE SEQUENEE Thre ccote ommand 1$-sep-198 93:38:95 | UNSksumehaSteRcceoT seciures.et;1 2% (33. 


H 3) $6) ! ZSBTTL "EDTSSRSEQ_CMD = RESEQUENCE Line-mode command’ | 
3 38 : 1 GLOBAL ROUTINE EDTSSRSEQ_CMD ! RESEQUENCE Line=-mode command 
;  % 1 : NOVALUE = | 
; 5 1 

: 4 1 te 
; 44 66 : FUNCTIONAL DESCRIPTION: 

. 089 +} Command processing routine for RESEQUENCE. 

; 100 670 1! 

; 101 671 1 ! FORMAL PARAMETERS: 
: Ine ore 1} 

.. 9 675 1! NONE 

; 61046 674 1! 

; 105 0675 1 ! IMPLICIT INPUTS: 

: 198 8978 1} 

; 10 0677 1! EDTSSA_CUR_BUF 

> 108 0678 1! EDTS$L_LNO 

; 109 679 1! EDTS$Z_ “RNG GRIGPOS 

; 110 0 1! EDTSSA_Wk 

gs 33 0681 1! EDTSSA_EXE_ CURCHD 

; ig beg 1? EDTS$$G_EXE_SBITS 

s 3t 06 : 2 EDT$$2_EXE_SBLK 

; (116 0684 1! 

3 95 0685 1 ! IMPLICIT OUTPUTS: 

; 139 bene 1? 

Fey 36 1! EDTS$A_CUR_BUF 

: #6118 88 1! 

: 119 0689 1 ! ROUTINE VALUE: 

3; te 0690 1! 

; 121 0691 1! NONE 

sf ¢ Bo6 1} 

:-% 0695 1 ! SIDE EFFECTS: 

: 126 0694 1! 

; \¢? 0696 : : NONE 

; 159 39 1 !<< 

; 128 0698 1 

: 129 0699 BEGIN 

3; 7 0700 

3 131 0701 EXTERNAL ROUT INE 

a § 44 EDTSSFM a : NOVALUE, ; : 
3; 7 70 EDTSSFMT_CRLF ! Terminate an output Line 
—% ye EDTSSFMT-MSG,- 
; 135 705 EDTSSFMT_STR, 

3; 1 7 EDTSSNXT_LNRNG, 

3; 1 7 EDTSSRNG_REPOS, 
3; 1 7 4 EDTSSRD_PRVLN, 
Te 7 EDTSSRD_CURLN, 
; 140 710 EDTSSRD-NXTLN, 
3; (141 711 EDTSSRSEQ; 

: re te 

: 14 71 EXTERNAL 

3 6146 714 EDTSSL_WK_RESCNT : LN BLOCK, ! Actual count of Lines resequenced 
3; 145 715 EDTS$A_CUR_BUF : REF TBCB BLOCK, 
: 146 ay EDTSSL_LNO PERO BLOCK, 

; (14 71 EDTSS$L-LNOS : ‘ato Otks 
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EDTSLRES DISLRES = RESEQUENCE Line-mode command 16-Sep-1984 00:56: VAX-11 Bliss-32 V4.0-74 Page 4. 
‘04 D $REEQ_ CAD = RESEQUENCE Line-mode command 12280871382 99:39:45 DL SKSVMEMASTERSLEDT. SRCSLRES.BLI:1 (3) | 
14 7 EDTSSL_LNOO : LN_BLOCK 
14 ? EDISSE-RNG_O1GPOS : POS BLOCK, 
7 EDTS$$Z_RNG_SAVPOS : POS BLOCK, 
7 EDTSSA_WK_CN : REF LIN BLOCK, 
7 EDTSSA_EXE_CURCMD : REF NODE_BLOCK, ! Pointer to the current command. 
7 EDTS$G_RNG_FRSTLN, 
7 EDTSS$G_EXE_SBITS, ! The options switches. 
7 EDT$$2_EOB_LN, 
EDTSS$Z_EXE_SBLK : REF NODE_BLOCK; ! The option switch value block. 
MESSAGES ((RANSPCSEQ)); 
LOCAL 
COUNT : LN BLOCK, ! The number of Lines in the range. 
RANGE : REF NODE_BLOCK, ! Address of the range block 
, SWB : NODE_BLOCK; ! Address of the switch value block. 


1+ 

ae for the /SEQ option. If not specified, then default the values 
' to 1 an ‘ 

' 


IF ( NOT .EDT$$G_EXE_SBITS<OPB_SEQ>) 
THEN 


co CO O09 INI NSIS NNSA A AAA AA AOI 
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74 BEGIN 

74 EDTS$Z_ EXE SBLK = SWB; 

74 MOVELINE (EDTS$L_LNOS, SWB CSW_VAL1)); 

74 MOVELINE (EDTSSL_LNOS, SWB CSW_VAL2J)); 

f es 

74 '¢ 

Le Check for the null range, making it WHOLE. 

Le RANGE = .EDTSSA_EXE_CURCMD CRANGE1); 

e IF (.RANGE CRAN_TYPE] EQL RAN_NULL) THEN RANGE CRAN_TYPE] = RAN_WHOLE; 

7 + 
a6 g : Position to the first Line of the range. 
88 7 
89 7 EDTS$$G_RNG_FRSTLN = 1; 
190 76 EDTSSCPY_MEM(POS SIZE, .EDTS$$A_CUR_BUF, EDT$$Z_RNG_ORIGPOS); 
131 g IF ( NOT EDTSS$RNG_REPOS (.RANGE)) THEN RETURN; 
198 76 '¢ 
194 7 ! If there is a preceding Line, then make sure the starting Line number 
13? 8 ;_1s okay. 
199 rep 5 | 
198 708 IF EDTSSRD_PRVLN () 
199 26 THEN 
201 aa BEGIN 
34 Ak IF (CMPLNO (EDTSSA_WK_LN CLIN_NUM], EDTS$Z_EXE_SBLK CSW_VAL1]) GEQ 0) 
$8 B77 THEN 
04 774 BEGIN 


ESEQUENCE Line-mode command 1b-5e Sep-1984 00:56: VAX-11 Bliss-32 V4.0-74 P 5 
D = RESEQUENCE Line-mode command 1 ~3007138 99:39:68 Ds SKSVMSMASTER:CE 137 seCSLReS.OL1:1 a (3) 


EDTSSFMT_MSG gers RANSPCSE 


EQ): 
EDTSSCPY nen S_SIZE, EDT TS$2_RNG_ORIGPOS, .EDTS$A_CUR_BUF); 
EDISS DISSR RD _tuR NOs 


E 
§ 
4 
4 
4 
4 
EDTSSRD_NXTLN (); | 
END; 
' b 
; _Count the Lines in the range. 
MOVELINE (EDTSS$L_LNO_ZERO, COUNT); | 
| 
LINE (NUMBER_ONE, COUNT); 
1 


SS 
e3 


er 
22D 
mon 
o 

, 
o 
FS) 


—_, ag Mt gel LNRNG 0) AND (.EDTSSA_WK_LN NEQA EDT$$Z_EOB_LN )) DO 
' + | 


i Reposition to the first Line of the range. 


EDTSSCPY_MEM(POS_SIZE, EDTS$Z_RNG_SAVPOS, .EDTS$S$A_CUR_BUF); 
EDTSSRD_CURLN() ;~ 


'¢ 
Do the resequence. | 


79 
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Coc vw 


FS & SYLBLMUMUN NU UNNNNNN 23 3 se 
moO Vw DO VOM OO NP AP UNIO DS ea 


‘s EDTSSRSEQ (COUNT, EDTS$$Z_EXE_SBLK CSW_VAL1], EDTS$Z_EXE_SBLK CSW_VAL2)); 
§ Reposition to our place before starting the command. 
04 " EDTSSCPY_MEM — SIZE, EDTS$Z_RNG_ORIGPOS, .EDTSSA_CUR_BUF); 
She EDTSSRD_CURLN ( 
0807 And display the number of Lines processed. 
$809 " EDTSSFMT _STRCNT (EDTSSL_WK RESCNT, UPLIT (ZSTRING (* Line')), 5); 
0810 EDTSSFMT-STR (UPLIT (ZSTRING (° resequenced')), 12); 
Baie porsernt CRLF (); 


-TITLE EDTSLRES EDTSLRES - RESEQUENCE Line-mode comman 
-IDENT \V04-000\ 


ND; ! of routine EDTSS$RSEQ_CMD | 
.PSECT _EDTSCODE,NOWRT, SHR, PIC,2 

| 

| 

| 


0 0 0 AAA: .ASCII \ Line\<0><0><0> 5 

64 65 63 6€ 43 9 of 2 $§ 8 2 $f 38 88 $68 P AAB: .ASCII \ resequenced\ 3 
-EXTRN EDTSSFMT_STRCNT 
.EXTRN EDTSSERT= “CRLF, EDTSSFMT_MSG 
-EXTRN EDTSSFMT_STR TSSNXT_CNRNG 
“EXTRN EDTSSRNG-REPOS, EDT$$RO_PRVLN 
-EXTRN EDTSSRD_CURLN gDTSSRD AXTLN 
-EXTRN EDTS$RSEQ eptS L_Wk_RESCNT 
-EXTRN EDTSSA_ sEURB OTSSL LNO_ZERO | 
“EXTRN EDTSSL -{NoSe UEoT $L_LNO 


EDTSLRES EDTSLRES = RESEQUENCE Line-mode command 1b-se Sep-1984 VAX-11 Bliss-32 V4.0-7 
V04= DTISSRSEQ_CMD = RESEQUENCE Line-mode command 14-Sep- DISKSVMSMASTER: EDT. she LRES.BLI;1 
Yee ti E 188 EQ QUENCE | : 138 99: 3¢: ¢§ k$ C 
.EXTRN EDTS$z_ RNG_ORIGPOS 
SEXTRN EDT$$Z—RNG.SAVPOS 
eEXTRN ept $A_wk_CN FDTSSA_ EXE_CURCMD 
“EXTRN EDT $¢- RNG_FRSTLN 
“EXTRN EDT G-EXE SBITS 
-EXTRN EDT$$Z-EOB-LN, EDT$$Z_EXE_SBLK 
SEXTRN EDT$_RANSPCSEGQ 
OFFC 00000 ENTRY EDTSSRSEQ, CMD, Save R2,R3,R4,R5,R6,R7,R8,- 
B 000000006 E 9002 MOVAB EDT$$L’LNOS, R11 
A 8 G : of MOVAB EDTS$$RB_CURLN, R10 
9 G MOVAB EDT$$Z_RNG_ORIGPOS, R9 
8 000000006 9—E 0001 MOVAB EDTS$$Z~EXE-SBLK, R8 
7 000000006 : 9 Ooi MOV EDT$S$A-CUR-BUF , R7 
C2 000 SUBL2 #40, SP 
OD 000000006 0 4 f 00 BBS a4 EDTSSG EXE _SBITS, 1$ 
6 E ; 00 MOV SWB, EDT$$Z EXE_SBLK 
08 AE 6B 6 § 00 MOVC #6, EDTSS$L_CNOS> SwB+8 
16 AE 68 6 8 00038 MOVC3 #6, EDTSSL-LNOS, SwB+20 
50 000000006 DO 0003D 1$: MOVL EDTS$A_EXE-CURCMD, RO 
56 04 AO p0 0044 MOVL 4(RO), RANGE 
01 Ad 95 00048 TSTB 1 (RANGE) 
04 1 0048 BNEQ 2$ 
01 Ab 0B 90 00040 MOVB Hit, 1 (RANGE) 
000000006 90 0% 9 0051 2$: MOVE fotsth DT$$G_ RNG_ FRSTLN 
69 60 Oe BB 0058 MOVC3 «Roy Borg _RNG_ORIGPOS 
DD 0005F PUSHL RAN 
000000006 90 gi FB 906 CALLS 1. EDTSSRNG_ REPOS 
be 0068 RET 
000000006 09 99 FB 006¢ 3$: CALLS 0. EDTSSRD_ PRVLN 
51 000000006 00 01 C1 00076 ADDL > EDTS$A_WK_LN 
50 68 8 C1 0007 ADDL At EDTS$z “EXE_ Th RO 
mee 04 or FF S008 BLSSU He _ 
10 12 0089 BNEQ 6$ 
60 61 D1 000 CMPL = (R1), (RO) 
5 1€ 0008 BGEGU 
50 1 CE 9 4$ MNEGL #1, RO 
9 11 0009 BRB 
4 13 95 5$ BNEQ 6$ 
9 D 9 CLRL RO 
6 11 00099 BRB 7 
50 1 09 98 g$: MOVL , RO 
18 1 Hi $: BLSS 
000000006 ar DD OOOA PUSHL 4 DT$_RANSPCSEQ 
000000006 99 1 F Ab CALLS ESTSSFAI MSG 
, 6 AD MOVL Eofs A CURB RO 
60 69 f 2 B MOVC3 #14, EDTSSZ_ ae ORIGPOS, (RO) 
Fe B4 CALLS #0, EDT$$RD~CURCN 
000006 0 4 Hf $ CALL EDTS$$RD_NXTLN 
itis 8 Oe eB BF 8: mot’ mt DISS $L_CNO_ZERO, COUNT 
E D4 000C8 10$ CLRL 


<m 
FS 


aa — c-f- 


Pee rn nw agg gg ae hea ‘ina 


} 
K ,f 
TSLR DTISLRES = RESEQUENCE Line-mode command 16-Sep-1 VAX=11 s-32 V Page 7 
TOL OOD: EDISSRSEO CHD“ CRESEQUENCE Tinecmode command 1a-Sep=-1986 13:29:80  DISKSVMEMASTERSCEDT SRCSLRES.eLI;1 2% ¢35_ 
000000006 00 FB QOOCA CALLS #1, EDTSSNXT_LNRNG , | 
A 3 D1 BLBC 4} ith : 
0 999000006 D4 MOVAB EDtS$z_ EOB_LN, RO ; 
G 9 p #7 cnet sors A_Wk_CN, “RO ; 
20 AE p E INCL FIRST _LWORD ; 0790, 
24 OF e2 inte ‘ rT WORD : 
oh TT SObeC |. ahs Ibs oe : ozs 
60 000000006 00 Bf FF "moved. #14, £5 138708 UNG eA vPOS, (RO) : 
A Fe 9 CALLS #0 goTssRD “CUR REN + 079 
0 p FC MOVL Of$$7_EXE_SBLK : 080 
14 a0 F OOOFF PUSHAB 20(RO)~ : 
08 AO OF 0108 PUSHAB §(RO) ; 
28 AE oF 001 PUSHAB COUNT : 
000000006 00 03 FB 00108 CALLS @# EDTSSRSEQ : 
50 67 DO 0010F MOVL €Df$$A_CUR RO + 0804 
60 69 O& 28 00112 MOVC3 #14, eBTSs2~ RNG ORIGPOS, (RO) : 
6A 00 FB 00116 CALLS #0, EDTS$RD~CURCN + 0805 
05 oD 00119 PUSHL # + 0809 
FECD CF 9F 0011B PUSHAB P.AAA : 
000000006 09 9F OO11F PUSHAB EDTSSL Wk _RESCNT ; 
000000006 00 03 FB 00125 CALLS #3, EDTSSFMT_STRCNT : 
0C oD 001 c PUSHL #12 + 0810 
000000006 00 is 6 Pe $01 5 CALS” 93 EDTSSEM STR : 
000000006 00 00 FB 00139 CALLS 58° EDTSSFMT~CRLF : 0811 
; Routine Size: 321 bytes, Routine Base: _EDTSCODE + 0014 
243 0813 1 
246 0814 1 !<BLF/PAGE> 


TEERSCO CRD CRESEQUENTE Tinecoode command 1$-Se0-1984 99:39:98 = UNcdumenaSfencceotosaciures.eri:1 29° 48 


voe=b00° 


aOR 


Elapsed Time: 00:43.4 
Lines/CPU Min: 694 
ponents CPU-Aiss 12013 
penety 2 Used: 148 pages 
; Compilation Complete 


| 
13 } END ! of module EDTSLRES | : 
3 0 ELUDOM | : 
Z PSECT SUMMARY 3 
: Name Bytes Attributes ; 
;  JEDTSCODE 341 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 3 
Library Statistics ; 
Oe ee ee en i ey Symbols -------- Pages Processing ; 
: File Total Loaded Percent Mapped Time : 
; _$255$DUA28:CEDT.SRCJEDT.L32;1 377 103 27 40 00:00.2 ; 
; ~$255$DUA28:CEDT.SRCIPSECTS.L32;1 2 1 50 7 00:00.1 : 
; COMMAND QUALIFIERS : 
; BLISS/CHECK=(FIELD, INITIAL, OPTIMIZE) /NOTRACEBACK/LIS=LIS$:LRES/OBJ=OBJ$:LRES MSRC$:LRES.BLI/UPDATE=(ENH$:LRES) : 
i 321 code + 20 data bytes 
} : 
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